| TestingEnds method |
Applies to
TTestResult
Declaration
Procedure TestingEnds;
Implementation
procedure TTestResult.TestingEnds;
var
i :Integer;
begin
for i := 0 to fListeners.count - 1 do
begin
(fListeners[i] as ITestListener).TestingEnds(self);
end;
End; |
|
|